home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / pc / explorer / function.dxr / 00143.ls < prev    next >
Encoding:
Text File  |  1997-07-22  |  2.0 KB  |  44 lines
  1. on doFunction
  2.   global Voice, last
  3.   if (the castNum of sprite 11 = the number of member "opposite") and (the castNum of sprite 12 = the number of member "hypotenuse") then
  4.     set the castNum of sprite 10 to cast "sine"
  5.     if Voice and (last <> the castNum of sprite 10) then
  6.       puppetSound("sine.aif")
  7.     end if
  8.   end if
  9.   if (the castNum of sprite 11 = the number of member "adjacent") and (the castNum of sprite 12 = the number of member "hypotenuse") then
  10.     set the castNum of sprite 10 to cast "cosine"
  11.     if Voice and (last <> the castNum of sprite 10) then
  12.       puppetSound("cose.aif")
  13.     end if
  14.   end if
  15.   if (the castNum of sprite 11 = the number of member "opposite") and (the castNum of sprite 12 = the number of member "adjacent") then
  16.     set the castNum of sprite 10 to cast "tangent"
  17.     if Voice and (last <> the castNum of sprite 10) then
  18.       puppetSound("tan.aif")
  19.     end if
  20.   end if
  21.   if (the castNum of sprite 11 = the number of member "hypotenuse") and (the castNum of sprite 12 = the number of member "opposite") then
  22.     set the castNum of sprite 10 to cast "cosecant"
  23.     if Voice and (last <> the castNum of sprite 10) then
  24.       puppetSound("cosec.aif")
  25.     end if
  26.   end if
  27.   if (the castNum of sprite 11 = the number of member "hypotenuse") and (the castNum of sprite 12 = the number of member "adjacent") then
  28.     set the castNum of sprite 10 to cast "secant"
  29.     if Voice and (last <> the castNum of sprite 10) then
  30.       puppetSound("secan.aif")
  31.     end if
  32.   end if
  33.   if (the castNum of sprite 11 = the number of member "adjacent") and (the castNum of sprite 12 = the number of member "opposite") then
  34.     set the castNum of sprite 10 to cast "cotangent"
  35.     if Voice and (last <> the castNum of sprite 10) then
  36.       puppetSound("cotan.aif")
  37.     end if
  38.   end if
  39.   if (the castNum of sprite 11 = the castNum of sprite 12) and (the castNum of sprite 11 <> the number of member "quest") then
  40.     set the castNum of sprite 10 to cast "one"
  41.   end if
  42.   set last to the castNum of sprite 10
  43. end
  44.